home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / music / 5mods_3.arj / FORLETR.MOD < prev    next >
Text File  |  1994-01-27  |  3KB  |  71 lines
  1. ┌──────────────────────────────────────────────────────Filo─Header─(c)────┐
  2. │ Mod Name: Apollo11.423  Mod Authors: Apollo  1@92938 WWIVNet & BRNet    │
  3. │ Difficulty: ██▒▒▒▒▒▒▒▒               1@2939 TARDIS,TERRA,ICE & Mas Nets │
  4. │ WWIV Version: v4.23            Date: 12/09/93                           │
  5. │ Files Affected: UEDIT.C                                                 │
  6. │ F in UEDIT Sends Form letter                                            │
  7. └─────────────────────────────────────────────────────────────────────────┘
  8.  
  9. LEGEND:
  10. = old code, Search for this
  11. + new code
  12. - Remove or comment out this line
  13. > Modified From Virgin Code
  14.  
  15. #include <witty disclaimer>
  16.  
  17. BACKUP your Source
  18.  
  19. Load up: UEDIT.C
  20. Find: void uedit(int usern, int other)
  21. =      nl();
  22. =      prt(2,get_string(266));
  23. =      if ((thisuser.sl==255) || (wfc))
  24. -        ch=onek("Q[]{}/,.?UDRNLCPOGMSTEYZAI~%:");
  25. -                                            /* Removed for Apollo11.423 */
  26. +        ch=onek("Q[]{}/,.?UDRNLCPOGMSTEYZAI~%:F");      /* Apollo11.423 */
  27. =      else
  28. =        ch=onek("Q[]{}/,.?UDRNLCPOGMSTEYZAI%");
  29. =      switch(ch) {
  30. =        case 'Q':
  31. .
  32. .
  33. .   /* Goto the end of: case 'E' */
  34. =          if ((i>=0) && (i<=255) && (s[0])) {
  35. =            u.exempt=i;
  36. =            write_user(un,&u);
  37. =          }
  38. =          break;
  39. +        case 'F':                                       /* Apollo11.423 */
  40. +          show_files("*.FRM",syscfg.gfilesdir);         /* Apollo11.423 */
  41. +          prt(2,get_string(712));                       /* Apollo11.423 */
  42. +          mpl(8);                                       /* Apollo11.423 */
  43. +          input(s,8);                                   /* Apollo11.423 */
  44. +          if (!s[0])                                    /* Apollo11.423 */
  45. +            break;                                      /* Apollo11.423 */
  46. +          sprintf(s1,"%s%s.FRM",syscfg.gfilesdir,s);    /* Apollo11.423 */
  47. +          if (!exist(s1))                               /* Apollo11.423 */
  48. +            sprintf(s1,"%sFORM%s.MSG",syscfg.gfilesdir,s);
  49. +                                                        /* Apollo11.423 */
  50. +        if (exist(s1)) {                                /* Apollo11.423 */
  51. +          unsigned short sy,un;                         /* Apollo11.423 */
  52. +          load_workspace(s1,1);                         /* Apollo11.423 */
  53. +          helpl=0;                                      /* Apollo11.423 */
  54. +          parse_email_info(u.name,&un,&sy);             /* Apollo11.423 */
  55. +          grab_quotes(NULL, NULL);                      /* Apollo11.423 */
  56. +          email(un,sy,0,0);                             /* Apollo11.423 */
  57. +          if (!wfc)                                     /* Apollo11.423 */
  58. +            topscreen();                                /* Apollo11.423 */
  59. +          }                                             /* Apollo11.423 */
  60. +          break;                                        /* Apollo11.423 */
  61. =        case 'G':
  62. =          nl();
  63. =          outstr(get_string(274));
  64.  
  65.  
  66. done.
  67.  
  68. Save, Recompile and run.
  69. As you can see, not all that hard, just a long one.
  70.  
  71.